﻿Imports System
Imports System.Collections

Public Class TypeDocBE
#Region "Campos y Propiedades"
    Private _IdTypeDoc As Integer
    Private _Nombre As String
    Private _Descripcion As String
    Private _Habilitado As Boolean

    Public Property IdTypeDoc() As Integer
        Get
            Return _IdTypeDoc
        End Get
        Set(ByVal value As Integer)
            _IdTypeDoc = value
        End Set
    End Property

    Public Property Nombre() As String
        Get
            Return _Nombre
        End Get
        Set(ByVal value As String)
            _Nombre = value
        End Set
    End Property

    Public Property Descripcion() As String
        Get
            Return _Descripcion
        End Get
        Set(ByVal value As String)
            _Descripcion = value
        End Set
    End Property

    Public Property Habilitado() As Boolean
        Get
            Return _Habilitado
        End Get
        Set(ByVal value As Boolean)
            _Habilitado = value
        End Set
    End Property


#End Region

#Region "Constructores"

    Public Sub New()

    End Sub

    Public Sub New(ByVal IdTipoDato As Integer, ByVal Nombre As String, ByVal Descripcion As String)
        Me._IdTypeDoc = IdTipoDato
        Me._Nombre = Nombre
        Me._Descripcion = Descripcion
    End Sub
#End Region
End Class

Public Class TypeDocBECollection
    Inherits CollectionBase

    Default Public Property Item(ByVal index As Integer) As TypeDocBE
        Get
            Return CType(List(index), TypeDocBE)
        End Get
        Set(ByVal value As TypeDocBE)
            List(index) = value
        End Set
    End Property

    Public Function Add(ByVal value As TypeDocBE) As Integer
        Return (List.Add(value))
    End Function

    Public Function IndexOf(ByVal value As TypeDocBE) As Integer
        Return (List.IndexOf(value))
    End Function

    Public Sub Insert(ByVal index As Integer, ByVal value As TypeDocBE)
        List.Insert(index, value)
    End Sub

    Public Sub Remove(ByVal value As TypeDocBE)
        List.Remove(value)
    End Sub

    Public Function Contains(ByVal value As TypeDocBE) As Boolean
        Return (List.Contains(value))
    End Function
End Class



